home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / get_en1r / break.frm (.txt) < prev    next >
Visual Basic Form  |  1999-06-13  |  34KB  |  905 lines
  1. VERSION 5.00
  2. Begin VB.Form frmBreakThru 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Block"
  7.    ClientHeight    =   5640
  8.    ClientLeft      =   2865
  9.    ClientTop       =   1515
  10.    ClientWidth     =   3810
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H00000000&
  21.    Icon            =   "BREAK.frx":0000
  22.    KeyPreview      =   -1  'True
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    PaletteMode     =   1  'UseZOrder
  27.    ScaleHeight     =   5640
  28.    ScaleWidth      =   3810
  29.    ShowInTaskbar   =   0   'False
  30.    Begin VB.CommandButton Command3 
  31.       Caption         =   "Pause"
  32.       Height          =   255
  33.       Left            =   1440
  34.       TabIndex        =   15
  35.       Top             =   5280
  36.       Width           =   975
  37.    End
  38.    Begin VB.CommandButton Command2 
  39.       Caption         =   "Exit"
  40.       Height          =   255
  41.       Left            =   2760
  42.       TabIndex        =   14
  43.       Top             =   5280
  44.       Width           =   855
  45.    End
  46.    Begin VB.CommandButton Command1 
  47.       Caption         =   "Play"
  48.       Default         =   -1  'True
  49.       Height          =   255
  50.       Left            =   240
  51.       TabIndex        =   13
  52.       Top             =   5280
  53.       Width           =   975
  54.    End
  55.    Begin VB.Timer JoyTimer 
  56.       Interval        =   22
  57.       Left            =   3060
  58.       Top             =   5280
  59.    End
  60.    Begin VB.PictureBox picPaddle 
  61.       Appearance      =   0  'Flat
  62.       AutoRedraw      =   -1  'True
  63.       AutoSize        =   -1  'True
  64.       BackColor       =   &H80000005&
  65.       BorderStyle     =   0  'None
  66.       ForeColor       =   &H80000008&
  67.       Height          =   150
  68.       Left            =   1560
  69.       Picture         =   "BREAK.frx":030A
  70.       ScaleHeight     =   10
  71.       ScaleMode       =   3  'Pixel
  72.       ScaleWidth      =   48
  73.       TabIndex        =   6
  74.       Top             =   5160
  75.       Visible         =   0   'False
  76.       Width           =   720
  77.    End
  78.    Begin VB.PictureBox picBlack 
  79.       Appearance      =   0  'Flat
  80.       AutoRedraw      =   -1  'True
  81.       BackColor       =   &H00000000&
  82.       FillStyle       =   0  'Solid
  83.       ForeColor       =   &H80000008&
  84.       Height          =   855
  85.       Left            =   240
  86.       ScaleHeight     =   825
  87.       ScaleWidth      =   2715
  88.       TabIndex        =   8
  89.       Top             =   4680
  90.       Visible         =   0   'False
  91.       Width           =   2745
  92.    End
  93.    Begin VB.PictureBox picBall 
  94.       Appearance      =   0  'Flat
  95.       AutoRedraw      =   -1  'True
  96.       AutoSize        =   -1  'True
  97.       BackColor       =   &H80000005&
  98.       BorderStyle     =   0  'None
  99.       ForeColor       =   &H80000008&
  100.       Height          =   120
  101.       Left            =   1080
  102.       Picture         =   "BREAK.frx":047C
  103.       ScaleHeight     =   8
  104.       ScaleMode       =   3  'Pixel
  105.       ScaleWidth      =   8
  106.       TabIndex        =   7
  107.       Top             =   5400
  108.       Visible         =   0   'False
  109.       Width           =   120
  110.    End
  111.    Begin VB.PictureBox picField 
  112.       Appearance      =   0  'Flat
  113.       BackColor       =   &H00000000&
  114.       ClipControls    =   0   'False
  115.       ForeColor       =   &H80000008&
  116.       Height          =   3975
  117.       Left            =   135
  118.       ScaleHeight     =   263
  119.       ScaleMode       =   3  'Pixel
  120.       ScaleWidth      =   234
  121.       TabIndex        =   0
  122.       Tag             =   "/3d/"
  123.       Top             =   1140
  124.       Width           =   3540
  125.       Begin VB.Label lblGameOver 
  126.          Alignment       =   2  'Center
  127.          Appearance      =   0  'Flat
  128.          BackColor       =   &H80000005&
  129.          BackStyle       =   0  'Transparent
  130.          Caption         =   "GAME OVER"
  131.          BeginProperty Font 
  132.             Name            =   "MS Sans Serif"
  133.             Size            =   12
  134.             Charset         =   0
  135.             Weight          =   400
  136.             Underline       =   0   'False
  137.             Italic          =   0   'False
  138.             Strikethrough   =   0   'False
  139.          EndProperty
  140.          ForeColor       =   &H000000FF&
  141.          Height          =   315
  142.          Left            =   -30
  143.          TabIndex        =   2
  144.          Top             =   1260
  145.          Visible         =   0   'False
  146.          Width           =   3525
  147.       End
  148.       Begin VB.Image imgBlock 
  149.          Appearance      =   0  'Flat
  150.          Height          =   210
  151.          Index           =   0
  152.          Left            =   960
  153.          Picture         =   "BREAK.frx":051E
  154.          Top             =   360
  155.          Visible         =   0   'False
  156.          Width           =   300
  157.       End
  158.       Begin VB.Label lblPaused 
  159.          Alignment       =   2  'Center
  160.          Appearance      =   0  'Flat
  161.          BackColor       =   &H80000005&
  162.          BackStyle       =   0  'Transparent
  163.          Caption         =   "PAUSED"
  164.          BeginProperty Font 
  165.             Name            =   "MS Sans Serif"
  166.             Size            =   12
  167.             Charset         =   0
  168.             Weight          =   400
  169.             Underline       =   0   'False
  170.             Italic          =   0   'False
  171.             Strikethrough   =   0   'False
  172.          EndProperty
  173.          ForeColor       =   &H000000FF&
  174.          Height          =   315
  175.          Left            =   0
  176.          TabIndex        =   12
  177.          Top             =   1740
  178.          Visible         =   0   'False
  179.          Width           =   3525
  180.       End
  181.    End
  182.    Begin VB.Timer Timer1 
  183.       Enabled         =   0   'False
  184.       Interval        =   5
  185.       Left            =   2520
  186.       Top             =   5280
  187.    End
  188.    Begin VB.Label lblHiScore 
  189.       Alignment       =   2  'Center
  190.       Appearance      =   0  'Flat
  191.       BackColor       =   &H80000005&
  192.       BackStyle       =   0  'Transparent
  193.       Caption         =   "0000"
  194.       BeginProperty Font 
  195.          Name            =   "MS Sans Serif"
  196.          Size            =   9.75
  197.          Charset         =   0
  198.          Weight          =   700
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       ForeColor       =   &H000000FF&
  204.       Height          =   255
  205.       Left            =   1620
  206.       TabIndex        =   11
  207.       Tag             =   "/3d/"
  208.       Top             =   600
  209.       Width           =   1875
  210.    End
  211.    Begin VB.Label Label4 
  212.       Alignment       =   1  'Right Justify
  213.       Appearance      =   0  'Flat
  214.       BackColor       =   &H80000005&
  215.       BackStyle       =   0  'Transparent
  216.       Caption         =   "High Score:"
  217.       BeginProperty Font 
  218.          Name            =   "MS Sans Serif"
  219.          Size            =   9.75
  220.          Charset         =   0
  221.          Weight          =   700
  222.          Underline       =   0   'False
  223.          Italic          =   0   'False
  224.          Strikethrough   =   0   'False
  225.       EndProperty
  226.       ForeColor       =   &H00FF0000&
  227.       Height          =   255
  228.       Left            =   240
  229.       TabIndex        =   10
  230.       Top             =   600
  231.       Width           =   1275
  232.    End
  233.    Begin VB.Label lblPoints 
  234.       Alignment       =   1  'Right Justify
  235.       Appearance      =   0  'Flat
  236.       BackColor       =   &H80000005&
  237.       BackStyle       =   0  'Transparent
  238.       Caption         =   "0000"
  239.       BeginProperty Font 
  240.          Name            =   "MS Sans Serif"
  241.          Size            =   12
  242.          Charset         =   0
  243.          Weight          =   700
  244.          Underline       =   0   'False
  245.          Italic          =   0   'False
  246.          Strikethrough   =   0   'False
  247.       EndProperty
  248.       ForeColor       =   &H000000FF&
  249.       Height          =   315
  250.       Left            =   1140
  251.       TabIndex        =   3
  252.       Top             =   240
  253.       Width           =   675
  254.    End
  255.    Begin VB.Label